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-- Files. Mesa Edited by Sandman on May 12, 1978 4:40 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BytesPerPage , MaxFilePage], 
AUoFileDefs: FROM "altof iledef s" USING [ 

CFA, eofDA. FA. FP, LD, SN. TIME, vDA] . 
BFSDefs: FROM "bfsdefs" USING [CreatePages, DeletePages], 
BootDefs: FROM "bootdefs" USING [ 

AllocateObject, EnumerateObjects, LiberateObject, Val idateObject], 
DirectoryDefs: FROM "directorydefs" USING [ 

Directory Lookup, DirectoryPurgeFP], 
DiskKDDefs: FROM "diskkddefs" USING [UpdateDiskKD], 
InlineDefs: FROM "inlinedefs" USING [BITAND, BITOR], 
MiscDefs: FROM "miscdefs". 
NucleusDefs: FROM "nucleusdef s" , 
SegmentDefs; FROM "segmentdef s" USING [ 

AccessOptions, Append, DataSegmentAddress, DataSegmentHandle, 

DefaultAccess, DefaultBase, DeleteDataSegment . DeleteFileSegment, 

FileHandle, FileObject, FileSegmentAddress, FileSegmentHandle, JumpToPage, 

LengthHandle, LengthObject, MaxLocks, NewDataSegment, NewFileOnly, 

NewFileSegment, Object, OldFileOnly, PageNumber, Resld, Swapin, Unlock, 

VersionOptions, Write]; 

DEFINITIONS FROM AUoFileDefs. SegmentDefs; 

Files: PROGRAM 

IMPORTS BFSDefs, BootDefs, DirectoryDefs, DiskKDDefs, SegmentDefs 
EXPORTS BootDefs, MiscDefs, NucleusDefs, SegmentDefs SHARES SegmentDefs « 
BEGIN 

FileError: PUBLIC SIGNAL [f ile:FileHand1 e] « CODE; 
FileNameError: PUBLIC SIGNAL Cname:STRING] = CODE; 
FileAccessError: PUBLIC SIGNAL [f ile:Fi1eHandle] « CODE; 

NullFileObJect: FileObject = Object [FALSE, 

file [FALSE , FALSE , FALSE , FALSE . FALSE , FALSE . . FALSE ,0,0.0, 
FP[SN[1.0,1,17777B.177777B], eofDA]]]; 

NewFile: PUBLIC PROCEDURE [ 

name:STRING. access:AccessOptions , version:VersionOptions] 

RETURNS [fi1e:Fi1eHandle] « 

BEGIN OPEN InlineDefs; 

fp: FP; old, create: BOOLEAN; 

[access, version] <- Val idateOptions[access, version]; 

create *- BITAND[version,01dFileOnly]«0; 

old <- DirectoryDefs.DirectoryLookup[0fp, name, create]; 

IF (old AND BITAND[version,NewFileOnly]#0) 

OR (-old AND -create) THEN ERROR FileNameErrorfname]; 

IF (file ^ FindFile[@fp]) = NIL THEN 

BEGIN 

file <r Al locateFile[]; 

filet ♦- NullFileObject; 

file.fp ♦- fp; 

END; 
SetFileAccess[file, access]; 
RETURN 
END; 

InsertFile: PUBLIC PROCEDURE [fp:POlNTER TO FP, access :AccessOptions] 
RETURNS [fileiFileHandle] « 
BEGIN 

[access.] <- Val idateOptions[access.O]; 
IF (file *- FindFile[fp]) = NIL THEN 

BEGIN 

file <r AllocateFile[]; 

filet ^ NullFileObject; 

file.fp *- fpt; 

END; 
SetFileAccess[file, access]; 
RETURN 
END; 

BootFile: PUBLIC PROCEDURE [access:AccessOptions] RETURNS [file: FileHandle] • 
BEGIN 

[access,] <- Val idateOptions[access,0]; 
file +- AllocateFile[]; 
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filet *- NullFileObject; 
SetFileAccess[f lie, access]; 
RETURN 
END; 

InsertFileLength: PUBLIC PROCEDURE [file: FileHandle, fa: POINTER TO FA] ■ 
BEGIN 

Ih: LengthHandle ^ AnocateLength[f ile]; 
[da: Ih.da, page: Ih.page, byte: Ih.byte] <- fat; 
RETURN 
END; 

Val idateOptions: PROCEDURE [access:AccessOptions, version:VersionOptions] 
RETURNS [AccessOptions, VersionOptions] ■ 
BEGIN OPEN InlineDefs; 

IF access = Defaul tAccess THEN access <r Read; 
-- IF version = DefaultVersion THEN version *- 0; 

IF BITAND[version,NewFileOnly+01dFileOnly] ■ NewFileOnly+OldFileOnly 
OR (BITAND[version,NewFileOnly]^0 AND BITAND[access,Append]"0) 

THEN ERROR Fi 1 eAccessError[NIL] ; 
IF BITAND[access,Append]=0 THEN 

version <- BIT0R[version,01dFileOnly]; 
RETURN[ access, version] 
END; 

GetFileAccess: PUBLIC PROCEDURE [f ile:FileHandle] RETURNS [AccessOptions] 
BEGIN 

access: AccessOptions <- 0; 
ValidateFile[file]; 

IF file. read THEN access ^ access+Read; 
IF file. write THEN access ♦- access+Write; 
IF file. append THEN access *- access+Append; 
RETURN[access] 
END; 

SetFileAccess: PUBLIC PROCEDURE [f ile:FileHandle, access:AccessOptions] ■ 
BEGIN OPEN InlineDefs; 
ValidateFile[file]: 

IF access = Defaul tAccess THEN access ♦- Read; 
file. read ^ file. read OR BITAND[access,Read]#0; 
file. write *• file. write OR BITAND[access,Write]#0; 
file. append *- file. append OR BITAND[access,Append]^0; 
RETURN 
END; 

LockFile: PUBLIC PROCEDURE [file: FileHandle] - 
BEGIN OPEN file; 
ValidateFile[file]; 

IF lock = MaxLocks THEN ERROR FileError[f ile]; 
lock ♦- lock+1; 
RETURN 
END; 

UnlockFile: PUBLIC PROCEDURE [file: FileHandle] - 
BEGIN OPEN rile; 
ValidateFile[file]; 

IF lock = THEN ERROR FileError[f il e] ; 
lock <- lock-1; 
RETURN 
END; 

ReleaseFile: PUBLIC PROCEDURE [f ile:FileHandle] - 
BEGIN 

[] <r PurgeFile[f ile]; 
DiskKDDefs.UpdateDiskKD[]; 
RETURN 
END; 

DestroyFile: PUBLIC PROCEDURE [file: FileHandle] • 
BEGIN 

seg: DataSegmentHandle; 
fp: FP *- file.fp; 
IF ~PurgeFile[file] OR -DirectoryOef s.DirectoryPurgeFP[0fp] 

THEN ERROR FileError[f ile] ; 
seg *- NewDataSegment[Defaul tBase, 1]; 
BFSDefs.DeletePages[DataSegmentAddress[seg],Qfp.fp.leaderDA.O 
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I UNWIND ■> DeleteDataSegment[seg]]; 
De1eteDataSegment[seg]; 
DiskKDDefs.UpdateDiskKD[]; 
RETURN 
END; 

PurgeFile: PROCEDURE [f ile: FileHandle] RETURNS [BOOLEAN] ■ 
BEGIN OPEN file; 
ValidateFileCfile]; 

IF segcount # THEN ERROR FileError[f ile]; 
IF lock j^ THEN RETURN[FALSE] ; 
CloseFi1e[file]; 

IF file. length THEN LiberateLength[FindLength[f ile]]; 
LiberateFile[File] ; 
RETURN[TRUE] 
END; 

-- File length stuff 

Normal izeFilelndex: PUBLIC PROCEDURE [page:PageNumber. byte:CAROINAL] 
RETURNS [PageNumber, CARDINAL] - 
BEGIN 

page ^ page + byte/Al toDef s .BytesPerPage; 
byte <- byte MOD Al toDefs. BytesPerPage; 
RETURN[page,byte] 
END; 

RoundFilelndex: PUBLIC PROCEDURE [page:PageNumber. byte:CARDINAL] 
RETURNS [PageNumber, CARDINAL] « 
BEGIN 

[page, byte] <- Normal izeFileIndex[page, byte]; 
IF byte = AltoDefs .BytesPerPage THEN 

BEGIN byte <- 0; page <- page+1; END; 
RETURN[page.byte] 
END; 

TruncateFilelndex: PUBLIC PROCEDURE [pageiPageNumber. byte:CARDINAL] 
RETURNS [PageNumber. CARDINAL] « 
BEGIN 

[page, byte] <- Normal izeFileIndex[page, byte]; 
IF page > AND byte « THEN 

BEGIN page ^ page-1; byte *- AltoDefs. BytesPerPage END; 
RETURN[page,byte] 
END; 

GetEndOfFile: PUBLIC PROCEDURE [f i1e:FileHandle] 
RETURNS [page: PageNumber. byte: CARDINAL] » 
BEGIN OPEN file; 
Ih: LengthHandle; 

cfa: CFA; seg: DataSegraentHandle; 
ValidateFile[file]; 
Ih <- AllocateLength[f lie]; 
IF -lengthvalid THEN 

BEGIN 

IF -open THEN OpenFile[f ile]; 

IF Ih.da « eofDA THEN GetLengthHinttlh]; 

seg *- NewDataSegment[DefaultBa$e.l]; 

cfa <- CFA[fp,FA[lh.da, Ih.page. Ih.byte]]; 

[] <- JumpToPage [@cfa, AltoDefs. MaxFilePage,DataSegmentAddress[seg] 
1 UNWIND => DeleteDataSegment[seg]]; 

DeleteDataSegment[seg]; 

ChangeFileLength[@cfa.fa,lh]; 

END; 
[page, byte] *- TruncateFilelndexflh. page, Ih.byte]; 
RETURN 
END; 

SetEndOfFile: PUBLIC PROCEDURE [ 

file: FileHandle, page:PageNumber, byte:CARDINAL] ■ 

BEGIN da: vDA; 

Ih: LengthHandle; 

cfa: CFA; 

seg: Da taSegmentHandle « NewDataSegment[Def aultBase, 1]; 

buf: POINTER « DataSeginentAddress[seg] ; 

BEGIN ENABLE UNWIND «> DeleteDataSegment[seg] ; 
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ValidateFileCfile]; 
Ih *- AnocateLength[fne]; 
IF -file. open THEN OpenFi1e[f ile]; 
IF Ih.da - eofDA THEN GetLengthHint[lh]; 

cfa ^ CFA[fp: file.fp, fa: [da: Ih.da, page: Ih.page, byte: Ih.byte]]; 
[page, byte] *- RoundFileIndex[page,byte]; 
IF page«0 THEN ERROR FneError[f ile] ; 
[,da] <r JumpToPage[@cfa,page,buf]; 
SELECT cfa. fa. page FROM 
» page ■> 

SELECT cfa. fa. byte FROM 
> byte «> IF -file. write 

THEN ERROR FileAccessError[f ile]; 
< byte «> IF -file. append 

THEN ERROR FileAccessError[f ile] j 
ENDCASE -> 

IF da-eofDA THEN GO TO done 
ELSE ERROR FileError[f ile] ; 
< page «> 

BEGIN da ^ eofDA; 
IF -file. append THEN 

ERROR FileAccessError[f ile]; 
END; 
ENDCASE => ERROR FileError[f ile]; 
BFSDefs.CreatePages[buf ,@cfa,page,byte]; 

IF da eofDA THEN BFSDef s .DeletePages[buf ,0cfa.f p,da,page+l]; 
EXITS 

done «> NULL; 
END; 
De1eteDataSeginent[seg]; 
ChangeFi1eLength[Scfa.fa,lh]; 
RETURN 
END; 

ChangeFileLength: PROCEDURE [fa:POINTER TO FA. Ih: LengthHandle] » 
BEGIN 

currentlength: FA <- [da: Ih.da, page: Ih.page, byte: Ih.byte]; 
IF currentlength # fat THEN 

BEGIN 

Ih.file.lengthchanged ♦- TRUE; 

[da: Ih.da, page: Ih.page, byte: Ih.byte] ♦- fat; 

END; 
Ih.file.lengthvalid <- TRUE; 
RETURN 
END; 

SetFileLength, UpdateFileLength: PUBLIC PROCEDURE [ 
file:FileHandle, fa:POINTER TO FA] « 
BEGIN OPEN file; 
Ih: LengthHandle; 
ValidateFile[file]; 
Ih <- AllocateLength[file]; 
ChangeFileLength[fa, Ih]; 
RETURN 
END; 

GetFileLength: PUBLIC PROCEDURE [f ile: FileHandle. fa:POINTER TO FA] - 
BEGIN 

Ih: LengthHandle; 
ValidateFile[file]; 
IF -file. length THEN 

BEGIN 

fat 4- [da: eofDA. page: 0. byte: 0]; 

RETURN 

END; 
Ih *- FindLength[file]; 

fat ^ [da: Ih.da, page: Ih.page, byte: Ih.byte]; 
RETURN 
END; 

-- Open and Close (leader page stuff) 

MakePageZeroSeg: PROCEDURE [f ile:FileHandle. access: AccessOptians] 
RETURNS [segrFileSegmentHandle] - 
BEGIN 
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temp: FileHancne ■ BootFile[access]; 
temp.fp <- file.fp; temp. open ♦• TRUE; 
seg <r NewFileSegment[temp, 0, 1, access 

I UNWIND -> ReleaseFileitemp]]; 
Swapln[seg I UNWIND »> De1etePageZeroSeg[seg]]; 
RETURN 
END; 

DeletePageZeroSeg: PROCEDURE [seg:FneSegmentHancne] ■ 
BEGIN 

IF seg.swappedin THEN Unlock[seg]; 
DeleteFileSegment[seg]; 
RETURN 
END; 

SecondsClock: POINTER TO TIME ■ L00PH0LE[572B]; 

DAYTIME: PUBLIC PROCEDURE RETURNS [TIME] - 
BEGIN 

RETURN[SecondsClockt] 
END; 

OpenFile: PUBLIC PROCEDURE [f ile: FileHandle] ■ 
BEGIN OPEN file; 
Ih: LengthHandle; 
Id: POINTER TO LD; 
seg: FileSegmentHandle; 
ValidateFileCfile]; 
IF -open THEN 
BEGIN 

seg <r MakePageZeroSeg[f ile, Read+Write]; 
Id *- FileSegmentAddress[seg]; 
IF length THEN 
BEGIN 

Ih <- FindLength[file]; 

[page: Ih.page, byte: Ih.byte, da: Ih.da] ♦- Id.eofFA; 
-- PATCH for OS versions 6 & up 
IF Ih.da = THEN Ih.da <- eofOA; 
END; 
IF read THEN Id. read ♦- DAYTIME[]; 
IF write OR append THEN Id. written ♦- DAYTIME[3; 
DeletePageZeroSeg[seg]; 
open <- TRUE; 
END; 
RETURN 
END; 

CloseFile: PUBLIC PROCEDURE [file: FileHandle] • 
BEGIN OPEN file; 
Id: POINTER TO LD; 
Ih: LengthHandle; 
seg: FileSegmentHandle; 
ValidateFile[file]; 
IF swapcount ^ THEN 

SIGNAL FileError[file]; 
IF open AND length AND lengthchanged THEN 

BEGIN 

seg <- MakePageZeroSeg[file, Read+Write]; 

Id <- FileSegmentAddress[seg]; 

Ih <- FindLength[file]; 

Id.eofFA <- FA[byte: Ih.byte, page: Ih.page, da: Ih.da]; 

DeletePageZeroSeg[seg]; 

lengthchanged ^ FALSE; 

END; 
open <- FALSE; 
RETURN 
END; 

GetLengthHint: PROCEDURE [Ih: LengthHandle] • 
BEGIN 

Id: POINTER TO LD; 
seg: FileSegmentHandle; 
seg <~ MakePageZeroSeg[lh.file, Read]; 
Id <- FileSegmentAddress[seg]; 

[page: Ih.page, byte: Ih.byte. da: Ih.da] *- Id.eofFA; 
-- PATCH for OS versions 6 & up 
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IF Ih.da ■ THEN Ih.da ^ eofDA; 

De1etePageZeroSeg[seg]; 

RETURN 

END; 



-- Managing File Objects 

-- Procedures are bound before this initialization code is run 
ValidateFile: PROCEDURE [FileHandle] - LOOPHOLE[BootDefs.Val idateObject]; 
LiberateFile: PROCEDURE [FileHandle] « LOOPHOLE[BootDef s .LiberateObject] : 
AnocateFile: PROCEDURE RETURNS [FileHandle] ■ 

BEGIN 

RETURN[LOOPHOLE[BootDefs.AllocateObject[SIZE[file Object]]]] 

END; 

EnumerateFiles: PUBLIC PROCEDURE [ 

proc: PROCEDURE [FileHandle] RETURNS [BOOLEAN]] RETURNS [FileHandle] - 

BEGIN 

RETURN[LOOPHOLE[BootDefs.EnumerateObjects[file. LO0PH0LE[proc]]]] 

END; 

FindFile: PUBLIC PROCEDURE [fp:POINTER TO FP] RETURNS [FileHandle] - 
BEGIN 

MatchFP: PROCEDURE [f ile:FileHandle] RETURNS [BOOLEAN] - 
BEGIN 
RETURN [file.fp.leaderDA « fp.leaderDA AND 

file.fp, serial « fp. serial] 
END; 
RETURN[EnumerateFiles[MatchFP]] 
END; 

GetFileFP: PUBLIC PROCEDURE [f ile:FileHandle, fpiPOINTER TO FP] - 
BEGIN 

ValidateFile[file]; 
fpt 4- file,fp; 
RETURN 
END; 

-- Managing Length Objects 

-- Procedures are bound before this initialization code is run 
ValidateLength: PROCEDURE [LengthHandle] « 

LOOPHOLE[BootDefs.Val idateObject]; 
LiberateLength: PROCEDURE [LengthHandle] ■ 

LOOPHOLE[BootDef s .LiberateObject] ; 

FindLength: PROCEDURE [file: FileHandle] RETURNS [LengthHandle] « 
BEGIN 
FindLength: PROCEDURE [Ih: LengthHandle] RETURNS [BOOLEAN] « 

BEGIN RETURN[lh.file = file] END; 
RETURN[LOOPHOLE[BootDefs.EnumerateObjects[length. LOOPHOLE[FindLength]]]] 
END; 

AllocateLength: PROCEDURE [f ile:FileHandle] RETURNS [lh:LengthHandle] « 
BEGIN 

IF file. length THEN RETURN[FindLength[f ile]]; 
Ih ^ LOOPHOLE[BootDefs.AllocateObject[SIZE[LengthObject]]]: 
Iht 4- [FALSE. length[O.0.0. file. eofDA]]; 
file. length *- TRUE; 
f ile.lengthvalid ♦- FALSE; 
RETURN 
END; 

END. 



